home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 27.asm < prev    next >
Assembly Source File  |  2000-04-02  |  1KB  |  33 lines
  1. * 27.asm      Use TL routines to open a window    version 0.00   1.9.97
  2.  
  3.  include 'Front.i'        ;*** Change to 'Tandem.i' to step thru TL's ***
  4.  
  5. strings: dc.b 0
  6. st_1: dc.b 'My Screen',0 ;1
  7. st_2: dc.b 'My Window',0 ;2
  8.  
  9.  ds.w 0
  10.  
  11. dpen: dc.l -1              ;default pens structure
  12.  
  13. * open screen & window; close & exit when close gadget clicked
  14. Program:
  15.  TLscreen #2,#st_1,#dpen   ;open screen: 2 planes, title st_2, pens dpen
  16.  beq Pr_bad                ;go if can't
  17.  TLwindow #0,#20,#10,#100,#20,#400,#150,#0,#st_2
  18.                            ;open window 0
  19.                            ;posn 20,10  minsize 100,20  maxsize 400,150
  20.                            ;flags: #0=Front.i's default (i.e. HIRES)
  21.                            ;title st_2
  22.  beq Pr_bad                ;go if can't
  23. Pr_wait:
  24.  TLkeyboard                ;get IDCMP
  25.  cmp.b #$93,d0             ;close window?
  26.  bne Pr_wait               ;no, keep waiting
  27.  rts                       ;Front.i closes everything
  28. Pr_bad:
  29.  move.l xxp_intb(a4),a6
  30.  sub.l a0,a0
  31.  jsr _LVODisplayBeep(a6)   ;if bad, beep existing screens
  32.  rts
  33.